﻿Public Class Oferta : Implements IEquatable(Of Oferta)
    Public Property Nombre As String 'hay q leer el nombre desde un fichero
    Public Property ProductoOferta As String 'Hay q pillar los productos de una lista de productos
    Public Property PrecioOferta As Decimal 'Controlaremos desde Gestion 
    Public Property FechaOferta As Date 'Controlaremos desde Gestion

    Public Sub New()

    End Sub

    Public Sub New(ByVal nombre As String, ByVal productoOferta As String, ByVal precioOferta As Decimal, ByVal fechaOferta As Date)
        Me.nombre = nombre
        Me.productoOferta = productoOferta
        Me.precioOferta = precioOferta
        Me.fechaOferta = fechaOferta
    End Sub

    Public Overloads Function Equals(other As Oferta) As Boolean Implements System.IEquatable(Of Oferta).Equals
        Return Me.Nombre = other.Nombre
    End Function
End Class
